Livehistory

Live history

A visualization of the songs that Fugazi performed live using metadata from the Fugazi Live Series.

This will be constructed using two data tables: - summary - songvarslookup

Let’s get the data and limit it to the columns that we will be using:

mygraphdata <- summary %>%
  left_join(songvarslookup)
#> Joining, by = c("songid", "duration_seconds", "releaseid", "release", "track_number", "instrumental", "vocals_picciotto", "vocals_mackaye", "vocals_lally")

mygraphdata <- mygraphdata %>%
  select(song, launchdate, chosen, release, rating)

knitr::kable(mygraphdata, "pipe")
song launchdate chosen release rating
bed for the scraping 1994-11-20 299 Red Medicine 1.0000000
reclamation 1990-05-05 594 Steady Diet 0.9966207
break 1996-08-15 170 End Hits 0.9960533
do you like me 1994-11-20 272 Red Medicine 0.9675623
closed captioned 1997-06-18 158 End Hits 0.9465065
cashout 2000-09-30 59 The Argument 0.9378211
place position 1996-08-15 133 End Hits 0.9268016
target 1994-08-15 261 Red Medicine 0.9160382
waiting room 1987-09-03 628 Fugazi 0.9134131
recap modotti 1997-05-03 141 End Hits 0.9112874
number 5 1998-11-21 109 Furniture 0.8899869
blueprint 1989-11-25 585 Repeater 0.8899828
sieve-fisted find 1989-04-05 417 Repeater 0.8801974
merchandise 1987-09-03 474 Repeater 0.8779402
rend it 1991-12-08 347 In on the Killtaker 0.8749664
arpeggiator 1997-05-02 154 End Hits 0.8638688
birthday pony 1994-08-15 200 Red Medicine 0.8488863
facet squared 1991-08-12 298 In on the Killtaker 0.8456339
margin walker 1988-08-01 426 Margin Walker 0.8440263
turnover 1989-04-09 392 Repeater 0.8392924
argument 1999-08-26 66 The Argument 0.8332195
long division 1989-04-09 497 Steady Diet 0.8317865
the kill 2001-04-05 35 The Argument 0.8311562
public witness program 1993-02-05 262 In on the Killtaker 0.8297181
oh 1998-11-29 78 The Argument 0.8241519
fd 1997-05-02 115 End Hits 0.8159488
forensic scene 1994-08-19 201 Red Medicine 0.8142400
by you 1993-04-24 232 Red Medicine 0.8080117
five corporations 1996-08-15 110 End Hits 0.8068760
smallpox champion 1992-10-23 251 In on the Killtaker 0.8060828
and the same 1987-09-26 374 Margin Walker 0.8057744
floating boy 1996-10-16 107 End Hits 0.8024899
instrument 1992-01-25 271 In on the Killtaker 0.7943190
great cop 1991-12-08 268 In on the Killtaker 0.7782936
ex-spectator 1999-08-26 46 The Argument 0.7766080
song #1 1987-09-03 318 3 Songs 0.7730818
give me the cure 1988-03-30 365 Fugazi 0.7720281
two beats off 1989-05-03 369 Repeater 0.7718995
life and limb 2001-06-21 20 The Argument 0.7717270
full disclosure 2001-04-05 24 The Argument 0.7629105
repeater 1989-07-20 408 Repeater 0.7625363
styrofoam 1990-05-17 288 Repeater 0.7539624
epic problem 2000-10-01 30 The Argument 0.7528743
suggestion 1987-12-03 338 Fugazi 0.7524260
no surprise 1996-09-29 89 End Hits 0.7497349
promises 1988-10-15 376 Margin Walker 0.7487850
back to base 1994-11-20 135 Red Medicine 0.7371805
bad mouth 1987-10-16 276 Fugazi 0.7344486
exit only 1990-07-06 275 Steady Diet 0.7344139
shut the door 1989-04-05 321 Repeater 0.7317727
nightshop 1999-08-26 43 The Argument 0.7282955
sweet and low 1992-05-15 247 In on the Killtaker 0.7269071
runaway return 1990-02-11 264 Steady Diet 0.7036297
downed city 1994-11-20 111 Red Medicine 0.6851131
bulldog front 1988-06-15 223 Fugazi 0.6814422
walken’s syndrome 1992-10-23 141 In on the Killtaker 0.6812393
reprovisional 1988-12-29 275 Repeater 0.6799040
fell, destroyed 1993-08-16 134 Red Medicine 0.6773280
strangelight 2001-04-06 19 The Argument 0.6744349
long distance runner 1994-11-27 112 Red Medicine 0.6717824
cassavetes 1991-07-28 171 In on the Killtaker 0.6692326
burning too 1988-08-01 212 Margin Walker 0.6670845
pink frosty 1996-03-20 67 End Hits 0.6647797
burning 1988-02-06 212 Fugazi 0.6638530
returning the screw 1992-10-23 134 In on the Killtaker 0.6616892
latin roots 1990-10-01 181 Steady Diet 0.6572176
greed 1989-04-05 187 Repeater 0.6503445
dear justice letter 1991-01-02 148 Steady Diet 0.6299659
stacks 1991-02-15 153 Steady Diet 0.6232322
caustic acrostic 1996-01-30 51 End Hits 0.6219637
last chance for a slow dance 1991-07-28 137 In on the Killtaker 0.6113554
lockdown 1987-12-03 162 Margin Walker 0.6013495
brendan #1 1989-04-05 156 Repeater 0.6008720
kyeo 1987-10-07 173 Steady Diet 0.5934003
nice new outfit 1991-02-20 114 Steady Diet 0.5727829
foreman’s dog 1998-05-01 33 End Hits 0.5662897
break-in 1987-10-16 134 3 Songs 0.5580242
joe #1 1987-09-03 130 3 Songs 0.5498234
guilford fall 1996-08-15 32 End Hits 0.5433334
glueman 1988-05-12 132 Fugazi 0.5345476
furniture 1987-09-03 93 Furniture 0.4918178
latest disgrace 1994-11-20 39 Red Medicine 0.4759510
provisional 1988-11-14 8 Margin Walker 0.4416884
version 1994-08-27 34 Red Medicine 0.4331396
steady diet 1991-04-12 46 Steady Diet 0.3969311
combination lock 1994-11-27 21 Red Medicine 0.3532997
23 beats off 1992-10-23 26 In on the Killtaker 0.3326167
hello morning 2001-04-27 2 Furniture 0.2828972
the word 1987-09-03 32 First Demo 0.2602199
in defense of humans 1987-09-03 25 First Demo 0.2304351
turn off your guns 1987-09-03 15 First Demo 0.1345170
polish 1991-03-06 6 Steady Diet 0.0000000

Now let’s graph the data. The idea is to plot each song as a bubble, with the x-coordinate given by the launch date, and the y-coordinate given by the rating calculated from the choice modelling of the FLS data. The size of the bubble will be proportional to the number of times the song was played live, while the color of the bubble indicates the associated release in the band’s discography. There will be a lot of information packed into this graph!


p <- mygraphdata %>%
  ggplot( aes(x=launchdate, y=rating, size = chosen, color=release, label=song)) +
  geom_point(shape = 1) +
  theme_bw()

ggplotly(p)

The graph is interactive:

Enjoy!